Sub 통합()

    Dim 경로 As String
    Dim 파일 As String
    Dim WB As Workbook
    
    경로 = ThisWorkbook.Path & "\샘플\"
    파일 = "분당점.xlsx"

    Set WB = Workbooks.Open(Filename:=경로 & 파일)
        Range("A2:H13").Copy
    
    ThisWorkbook.Activate
        Range("F6").Select
        ActiveSheet.Paste
        
    Application.CutCopyMode = False
    
    WB.Close SaveChanges:=False
    
End Sub